Komputer for Alle 2001 #16/2001 CD 16 (Black).iso/K-CS.DCR/00271.ls

Text File | 2001-10-25 | 383 b | 23 lines

global BlinkObjekt, CalcStarted

on new me
  if CalcStarted then
    set CalcStarted to 0
    baCloseWindow(baFindWindow(EMPTY, "Lommeregner"))
  end if
  puppetSprite(60, 0)
  puppetSprite(63, 0)
  puppetSprite(64, 0)
  puppetSprite(65, 0)
  set BlinkObjekt to new(script "Blink")
end

on enterFrame
  checkBlink(BlinkObjekt)
end

on exitFrame
  puppetSprite(12, 0)
  go(#loop)
end